home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d17 / cardptr.arc / README.BAT < prev    next >
Encoding:
DOS Batch File  |  1988-10-16  |  3.0 KB  |  194 lines
  1. echo off
  2. rem 8:27:29  11/23/1987
  3. rem Generic for monochrome windows BUSINESS/PERSONAL
  4. rem pop-up windows for installing programs on A: B: C: drives
  5. cls
  6. vidpop/s
  7. cls
  8. goto start
  9. :start
  10. pop set library to BPMONO.win
  11. pop Document
  12. seterror
  13. if errorlevel 6 GOTO End
  14. if errorlevel 5 GOTO DISKCOUNT
  15. if errorlevel 4 GOTO FEATURE
  16. if errorlevel 3 GOTO PRINTED
  17. if errorlevel 2 GOTO ONSCREEN
  18. if errorlevel 1 GOTO SETUP
  19. rem seterror
  20. goto start
  21.  
  22. :SETUP
  23. REM Setup.Bat for One, Two, or HardDrive
  24. REM           Make hardDrive sub-directory CHECKING
  25. pop Explain
  26. seterror
  27.  
  28. if errorlevel 6 GOTO EndCls
  29. if errorlevel 5 GOTO DriveH
  30. if errorlevel 4 GOTO DriveC
  31. if errorlevel 3 GOTO DriveB
  32. if errorlevel 2 GOTO DriveA
  33. if errorlevel 1 GOTO DiskSet
  34. GOTO SETUP
  35.  
  36. :DiskSet
  37. rem How to format a diskette
  38. pop DiskForm
  39. Goto End
  40.  
  41. :DriveH
  42. rem Compufile help only
  43. pop helpme0
  44. Pause
  45. pop helpme1
  46. pause
  47. Goto Setup
  48.  
  49. :DriveA
  50. rem Copying files a: b: on a 1 disk system
  51. pop DriveA
  52. Goto End
  53.  
  54. :DriveB
  55. pop DriveB
  56. Pause
  57. Copy Config.sys B:
  58. Copy B:Ansi.sys
  59. pop DriveB2
  60. Pause
  61. Copy Autoexec.bat B:
  62. Copy Ansi.sys B:
  63. Copy Confi*.sys B:
  64. Copy Compufil.exe B:
  65. Copy Compufil.ov? B:
  66. Copy Computer.fil B:
  67. pop DriveB3
  68. If not exist b:command.com Goto DriveB3NoCom
  69. Goto End
  70. Rem The target disk has no DOS; delete the 'sys' & 'bat' files.
  71. :DriveB3NoCom
  72. Del b:*.sys
  73. Del b:Autoexec.bat
  74. pop nocomfil
  75. Goto End
  76.  
  77. :DriveC
  78. pop HardDisk
  79. Pause
  80. If not exist c:\config.sys Goto MoveSys
  81. pop Blanker
  82. pop HDconfig
  83. Echo
  84. Echo
  85. Type C:\config.sys
  86. Echo
  87. Pause
  88. Goto LeaveSys
  89.  
  90. :MoveSys
  91. Copy config.sys c:\config.sys
  92. C:
  93. Cd\
  94. Md File
  95. Cd File
  96. Copy a:Compufil.exe
  97. Copy a:Compufil.ov?
  98. Copy a:Computer.fil
  99. Cd\
  100. A:
  101. pop HDFinish
  102. pop HDEndPop
  103. Goto End
  104.  
  105. :LeaveSys
  106. C:
  107. Cd\
  108. Md File
  109. Cd File
  110. Copy a:Compufil.exe
  111. Copy a:Compufil.ov?
  112. Copy a:Computer.fil
  113. Cd\
  114. A:
  115. pop HDFinish
  116. pop HDEndPop
  117. Goto End
  118.  
  119. :ONSCREEN
  120. cls
  121. echo 
  122. echo 
  123. echo 
  124. echo         The manual will print very rapidly on the screen.
  125. echo         .................................................
  126. echo 
  127. echo 
  128. echo 
  129. echo         Stop or Start the display: Press Ctrl-S
  130. echo 
  131. echo         End the screen display:    Press Ctrl-BREAK
  132. echo 
  133. echo 
  134. echo 
  135. echo 
  136. echo 
  137. echo 
  138. echo 
  139. pause
  140. cls
  141. type compubp.man
  142. Goto end
  143.  
  144. :PRINTED
  145. cls
  146. echo 
  147. echo 
  148. echo 
  149. echo         Make sure your printer is turned on and loaded
  150. echo           with paper.
  151. pause
  152. echo 
  153. echo 
  154. echo 
  155. echo         Printing the instruction manual for Compufile
  156. type compubp.man>prn
  157. echo 
  158. echo 
  159. echo 
  160. echo         Printing completed for the Compufile
  161. echo 
  162. echo     Please read the instructions before you use the program.
  163. pause
  164. Goto end
  165.  
  166. :FEATURE
  167. pop FEATURES
  168. seterror
  169. if errorlevel 5 GOTO DISKCOUNT
  170. if errorlevel 4 GOTO HELPSCREEN
  171. if errorlevel 3 GOTO PRINTED
  172. if errorlevel 2 GOTO ONSCREEN
  173. if errorlevel 1 GOTO START
  174. GOTO FEATURE
  175.  
  176. :DISKCOUNT
  177. echo ■■ terminate vidpop/
  178. cls
  179. catalog
  180.  
  181. :HELPSCREEN
  182. pop helpme0
  183. Pause
  184. pop helpme1
  185. pause
  186. goto start
  187.  
  188. :EndCls
  189. Cls
  190. GoTo End
  191.  
  192. :End
  193. echo ■■ terminate vidpop/
  194.